home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Essentials / MacApp Documentation / MacApp.TECH$ Archives / 1990 / Jun 90 / MacApp.Tech$ 6⁄1⁄90 / 1388-QD32 Ques-May90 < prev    next >
Encoding:
Text File  |  1991-03-06  |  2.6 KB  |  101 lines  |  [TEXT/GEOL]
  1. Item    5461448                         31-May-90        08:19PDT
  2.  
  3. From:   V0344                           Siemens Gammasonics, H Koopmans,VAR
  4.  
  5. To:     MACAPP.TECH$                    MacApp Technical
  6.  
  7. cc:     ROSENSTEIN1                     Rosenstein, Larry
  8.  
  9. Sub:    QD32 Ques
  10.  
  11. Sorry, the first message was garbage, this is my second attempt.  I am
  12. having problems with Applelink 5.1.  I sent this with 5.0.
  13.  
  14.  
  15. In regards to the compile error of QD32bit routines --
  16. The compile error is on the parameter GWorldFlags, not FrameRect.
  17. That may not have been clear in the first message. I can get it to
  18. compile if I comment out the 2 lines above it. (GetGworld and
  19. CatchFailures)  Does this imply a uses problem?
  20.  
  21. As before: MacApp 2.0b9
  22.    MPW 3.1
  23.    System 6.0.5
  24.  
  25.  
  26.  
  27. My source code looks something like this:
  28.  
  29.  
  30. {$S AOpen}
  31.    PROCEDURE TImageDoc.MakeMyOffScreen(frameRect: Rect);
  32.  
  33.    VAR
  34.    oldPerm: Boolean;
  35.    oldGD:  GDHandle;
  36.    oldGW, newGW:   GWorldPtr;
  37.    hsvc:   HSVColor;
  38.    rgbc:   RGBColor;
  39.    x:  INTEGER;
  40.    r:  Rect;
  41.    Erry:   QDErr;
  42.    fi: FailInfo;
  43.  
  44.    PROCEDURE OffScreenError(error: OSErr; message: Longint);
  45.    Begin
  46.    {   oldPerm := PermAllocation(oldPerm); }
  47.    SetGWorld(CGrafPtr(OldGW), OldGD);
  48.    End;
  49.  
  50.  
  51.    BEGIN
  52.  
  53.    GetGWorld(CGrafPtr(oldGW),oldGD);
  54.    CatchFailures(fi, OffScreenError);  { cleanup on error }
  55.  
  56.    Erry := NewGWorld( newGW,32,frameRect,nil,nil, GWorldFlags(0));
  57.    {$IFC qDebug}
  58.    writeln('QDerr=',Erry);
  59.    {$ENDC}
  60.  
  61.    FailOSErr(Erry);    { exit if err  }
  62.    fOffGW := newGW;
  63.    {Begin }
  64.    { Lock before drawing }
  65.    IF (LockPixels(fOffGW^.portPixMap)) THEN
  66.    BEGIN
  67.    .............................
  68.  
  69.  
  70.  
  71.  
  72. Compile error on GWorldFlags parameter looks like this:
  73.  
  74.  
  75. MABUILD EXERCISER
  76. MABuild - v. 2.0ß9 Release 7/5/89          Start: 9:31:16 AM 5/29/90
  77.  
  78. Copyright Apple Computer, Inc. 1986-1989
  79. All Rights Reserved.
  80.  
  81. Target Folder: "scsi0:ACE:AcqObj Code:AcqObjectNew:.Debug Files:"
  82. Making:        EXERCISER.MAMake
  83. Compiling:     UEXERCISER.p
  84. #  Erry := NewGWorld( newGW,32,frameRec,nil,nil, GWorldFlags(0));
  85. #                                                              ?
  86. ### Pascal - Error 169 Value out of range
  87. #------------------------------------------------------------------------------
  88. --------------------------------------------------
  89.     File "UExerciser.inc1.p"; Line 719  # Compiling scsi0:ACE:AcqObj
  90. Code:AcqObjectNew:UEXERCISER.p
  91. #------------------------------------------------------------------------------
  92. --------------------------------------------------
  93. ### MPW Shell - Execution of scsi0:ACE:AcqObj Code:AcqObjectNew:.Debug
  94. Files:EXERCISER.MakeIt terminated.
  95.  
  96.  
  97.  
  98. Thanks for your help.
  99. Lorraine Condic - V0344
  100.  
  101.